Word'de Arkal²-╓nlⁿ Bask²

Soru: Winword 2.0ile τal²■²yorum ve belgelerimi ÷nlⁿ arkal² bast²rtmak isityorum. Bir HP Deskjet yaz²c²m bulunuyor fakat yaz²c²m san²r²m bu i■lemi desteklemiyor. Fakat sonradan akl²ma bir ■ey geldi. ╓nce tek numaral² sayfalar² bast²rt²p sonra τift numaral² sayfalar² sayfan²n di≡er yⁿzⁿne bast²rtamaz m²y²m?

Yan²t: Word'ⁿn s²k²c² uyumsuzluklar²ndan biri ile kar■² kar■²yas²n²z. ╟ⁿnkⁿ kulland²≡²n²z yaz²c², anlatt²≡²n²z gibi bir i■lemi normal ■artlarda gerτekle■tiremez. Biz size τ÷zⁿm olarak tek / τift numaral² sayfalar² basan makromuzu tavsiye ediyoruz. Kolay gelsin...

Sub MAIN
Msg$= "Bu makro ÷nce tek sonra τift sayfalar² basar"
Response= Msgbox (Msg$,"Tekτift makrosu",49)
If Response [kⁿτⁿktⁿr ve bⁿyⁿktⁿr i■aretleri] -1 Then Goto Son
Dim Dig As Document Statistics
GetCurValues Dig
NumPages=Val(Dig.Pages)
X=1
While X [Kⁿτⁿktⁿr i■areti] = NumPages
FilePrint.Range = 3,.Form = Str$(X),. To= Str$(X)
X=X+2
Wend
If NumPages = 1 Then
Msg$ = "Tek sayfalar²n bas²m² tamamland²"
MsgBox Msg$, "Tekτift makrosu",48
Goto Son
End If
Msg$= "Birinci sayfa en ÷ne gelecek ■ekilde sayfalar² tekrar dⁿzenleyin."
MsgBox Msg$, "Tekτift makrosu",48
Msg$="Bask²ya haz²r oldu≡unuz zaman OK dⁿ≡mesine bas²n²z"
MsgBox Msg$,"Tekτift makrosu",16
X=2
While X [Kⁿτⁿktⁿr i■areti] = Numpages
FilePrint.Range = 3,.Form=Str$(X),.To= Str$(X)
X=X+2
Wend
If NumPages Mod 2+1 Tehn
Msg$= "Bask² Tamamland²."
MsgBox Msg$,"Tekτift makro",48
End if
Son:
End Sub